10 POKE56,32:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
25 POKE53281,0:POKE53280,0:PRINT"[147]"
30 GOSUB300
45 GOSUB400
50 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
60 SYS57812"INTRO.SHP",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
70 POKE251,32:POKE252,64:POKE253,96:SYS51456
85 GETA$:IFA$=""THEN85
90 GOSUB300
110 PRINT"     1.[154] [202]UST SHOW THE PICTURE.
120 [153]"     2.CONT (null)WAP TITLE PICTURES
160 PRINT"     3.[154] [210]ETURN TO [204][207][193][196][211][212][193][210]
220 [151]198,0
230 [161]A$:[139]A$[179]"1"[176]A$[177]"3"[167]230
232 [139]A$[178]"3"[167]40000
234 [139]A$[178]"2"[167][141]500
280 [158]51459
282 [151]198,0
284 [161]A$:[139]A$[178]""[167]284
286 [158]51459
290 [137]220
300 [151]53281,0:[151]53280,0:[153]"LOADFOR          (null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null)(null) (null)(null)ATNSTR$(null)(null)ATN(null)"
310 [153]"      (null)RIGHT$(null)(null)VAL (null)LEN(null)VALVAL(null) (null)RIGHT$VAL(null)VAL(null)/(null)(null)RIGHT$(null)(null)VAL(null)
320 RETURN
400 PRINT"[159]   [201]T HAS OCCURRED TO ME THAT THE
402 [153]"TITLE PICTURE FOR (null)(null) #108 MAY BE
404 PRINT"CONSIDERED SEXIST SINCE IT IMPLIES THAT
406 [153]"ONLY MEN ARE (null)(null)ATNSTR$(null)(null)ATN(null) READERS.
410 PRINT"   [212]HEREFORE [201] HAVE PLACED ANOTHER
412 [153]"PICTURE ON THE DISK THAT YOU CAN USE IN
414 PRINT"PLACE OF THE SEXIST ONE.  [202]UST CHOOSE
416 [153]"(null)PTION 2 -- WITH (null)IDE (null)NE OF (null)(null) #108
418 PRINT"(OR A COPY) IN YOUR CURRENT DRIVE.
420 [153]"    (null)HANK YOU FOR YOUR PATIENCE IN
422 PRINT"THESE DELICATE TIMES.
424 [153]"CONT              ASCENDER (null)UCKER
426 PRINT"              [217]R [200]MB [197]DTR
428 [153]"SYS       (null)RESS ANY KEY FOR MENU"
432 [142]
500 [151]214,14:[153]:[153]"SYS(null)UT (null)IDE (null)NE, (null)(null) #108 IN THE DRIVE
502 PRINT"AND PRESS A KEY.
504 [161]A$:[139]A$[178]""[167]504
506 [151]781,15:[158]59903:[151]781,17:[158]59903
508 [159]15,DV,15,"R0:TEMP=INTRO.SHP"
510 [152]15,"R0:INTRO.SHP=INTRO2.SHP":[152]15,"R0:INTRO2.SHP=TEMP":[160]15
520 [158]57812"INTRO.SHP",DV,0:[151]780,0:[151]781,0:[151]782,32:[158]65493
530 [151]251,32:[151]252,64:[151]253,96:[158]51456
540 [142]
700 :[151]781,0:[151]782,192:[158]65493
10000 [159]15,8,15,"S0:TS VIEWER":[160]15:[148]"TS VIEWER",8:[128]
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]